(loop for i from 0 to 8
   do (format t "~< screen ~A~% ~:>" `(,i)))
